﻿Public Class Form15


    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        Nav()
    End Sub

    Sub Nav()
        Dim Add As String = ToolStripTextBox1.Text
        WebBrowser1.Navigate(Add)
    End Sub

    Private Sub Form15_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ToolStripTextBox1.Text = "about:blank"
    End Sub

    Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
        ToolStripTextBox1.Text = WebBrowser1.Url.ToString()
        Me.Text = "Web Browser - " & WebBrowser1.DocumentTitle()
    End Sub

    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
        WebBrowser1.Refresh()
    End Sub

    Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
        WebBrowser1.Stop()
    End Sub
End Class